Visual Basic Toolbox

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / scn_savr / scrsvr / banner.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-11-08 | 7.2 KB | 354 lines

ScrnSave ScrnSave Form1. Banner Creating Screen Savers Overview wanted your% screensaver- toldK person heard Microsofty saidf screensavers wereF impossible Visual Basic Windows easy+ there somel important things Experts straight code= Section{ This. document DescriptionE Application^ title regular executable renamed extensionc Whenm making willu make4 Dialog MUSTl whereW wantm displayed@ control] panel dropdown8 Arguments startsx calls argumentS wants setup uses< module calledY SCRNSAVL statement% usedq capture Change Startupf Options- Project\ Main\ TellingA Saver! running waits beforec loading; specifiedX doesnl reload After/ passes again though already first thought5 could| remedy situation whetherO previous instance loaded should kills instances just= found which tells inactive SystemParametersInfo parameters suchc active careful+ sinceM changes permanent turns backD ended ExitNice Hiding cursorC ShowCursorL hidden object process hides needs redisplay well8 Knowing generally pressed routineU properly# eachb these events SaverForm{ becauseT other wonS MouseMove message REGARDLESS! moved check somehown solution necessarily prettiest ScrnSave declarationsm SWP_NOSIZE SWP_NOMOVE< SPI_SETSCREENSAVEACTIVE bShow SetWindowPosg Flags uAction uparam lpvParam= fuWinIni ConfigFormJ mayE alsoC initialization whatever does& Form_Load5 WindowState% Form_MouseMove Oldxu Form_Clicke Form_MouseDown Form_KeyDown Form_KeyPress Config* pass2 chosen specific might feature aboutd remembering Sources Congera James Group Electronic Journal$ Copyrightz Friendly2 IssueK Januaryb February Disclaimer Distribution informationu providedQ freeT charge, freely distributed portions elsewhere please indicate tested Professional risk/ registered* trademarks Submitted Peter< Provostb Button Shift KeyCode KeyAscii Timer1_Timer Picture1 Timer1[ Enabledn Interval ScaleWidth ThenPx Widthl Form_Resize Left^ ScaleHeight Picture1_Clicks Direction Riteh FRight Fleft XDirI XDirect? YDirectG Xdirec5 Yinc4 XincQ ifIf* BitBlt Target Source Column? SRCCOPY ScrSave Blackness PlusVal NegVal bmWidth bmHeight hdcMemory SelectObject hbmpOld DeleteDC ReleaseDC hDestDC nWidth nHeight hSrcDC YSrc! dwRop hbmpMyBitmap LoadBitmap hinst GetDC9 CreateCompatibleDC Sub_Main FWidthV FHeight Fbottom Fdiv# Speed Picnum ElseRow SlowE Accel Decel Decode picture position blit+ Twidth Text1 Swidth FontName Sfont FontSize Ssize Stext ForeColor Scolorp Banner Caption Bfont Bsize Btext Bcolor Bwidth Banner_Click Result GetFromINIQ Variable Filename} Variablename Bforecolour BackColor Bbackcolour Bheight Height Visible ScaelHeight Len10 Label1 Forecolour Backcolour Anival Remove Exit_Click working folowingX NOTE- The program is currently set up to test from within VB To make a working SCR screensaver file do the folowing-e Remove the two Rems's from the Banner.Frm load event code. Remove the "Load ScrnSave" instruction from the Config.Frm Close_Click code. Change the Project/Options/StartUpForm to Sub Main Move the Banner.SCR file to your Windows directory and run from Control Panel.y ExitNice Turn the cursor back onr reset screensavert Form_Click Form_KeyDown Form_KeyPress Form_Load Initialise vars Speed Forecolor Backcolor Size the picture box to fit text Print the text Need a Color around the pic box same as the background color, wider than Xinc. we can then Blit without flicker This trick applies to Bmp pics as well. Remove Rem's for SCR file WindowState = 2 'Maximize the screensaver Show the forms This = ShowCursor(False) 'Hide the cursor Starting positione Speed modifyer for bitmap (font) sizee Check the boundry and change direction Smooth the animation Delay loop Form_MouseDown Form_MouseMove